Dr. Windows 3/dr win3.zip/dr win3/UTILITY1/MF_DB.ZIP/VBSAMPLE/BCARDS.FRM

Text File | 1993-11-17 | 42KB | 1,289 lines

VERSION 2.00
Begin Form bcard
   BackColor       =   &H00C0C0C0&
   Caption         =   "Business Cards"
   ClientHeight    =   4755
   ClientLeft      =   915
   ClientTop       =   1680
   ClientWidth     =   5475
   Height          =   5415
   Left            =   870
   LinkTopic       =   "Form3"
   ScaleHeight     =   4755
   ScaleWidth      =   5475
   Top             =   1065
   Width           =   5565
   Begin Frame gBox
      BackColor       =   &H00C0C0C0&
      Enabled         =   0   'False
      Height          =   4695
      Left            =   60
      TabIndex        =   0
      Top             =   0
      Width           =   5355
      Begin ComboBox Combo1
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   3180
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   2940
         Width           =   1995
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   0
         Left            =   180
         TabIndex        =   1
         Top             =   780
         Width           =   2115
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   1
         Left            =   2340
         TabIndex        =   2
         Top             =   780
         Width           =   2835
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   2
         Left            =   180
         TabIndex        =   4
         Top             =   1860
         Width           =   4995
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   3
         Left            =   180
         TabIndex        =   5
         Top             =   2400
         Width           =   2595
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   4
         Left            =   2880
         TabIndex        =   6
         Top             =   2400
         Width           =   435
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   5
         Left            =   3660
         TabIndex        =   7
         Top             =   2400
         Width           =   1515
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   6
         Left            =   180
         TabIndex        =   3
         Top             =   1320
         Width           =   4995
      End
      Begin CommandButton Command1
         Caption         =   "&Next Card"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   13
         Top             =   4140
         Width           =   1695
      End
      Begin CommandButton Command1
         Caption         =   "&Previous Card"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Index           =   1
         Left            =   120
         TabIndex        =   12
         Top             =   3780
         Width           =   1695
      End
      Begin CommandButton Command2
         Caption         =   "&Find Card"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Left            =   120
         TabIndex        =   11
         Top             =   3420
         Width           =   3315
      End
      Begin CommandButton Command3
         Caption         =   "New &Card"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Left            =   1800
         TabIndex        =   14
         Top             =   3780
         Width           =   1635
      End
      Begin Frame Frame1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Order by"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1155
         Left            =   3660
         TabIndex        =   19
         Top             =   3360
         Width           =   1515
         Begin OptionButton Option1
            BackColor       =   &H00C0C0C0&
            Caption         =   "Reference"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   255
            Index           =   2
            Left            =   180
            TabIndex        =   18
            Top             =   780
            Width           =   1215
         End
         Begin OptionButton Option1
            BackColor       =   &H00C0C0C0&
            Caption         =   "Person"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   255
            Index           =   0
            Left            =   180
            TabIndex        =   16
            Top             =   300
            Value           =   -1  'True
            Width           =   1095
         End
         Begin OptionButton Option1
            BackColor       =   &H00C0C0C0&
            Caption         =   "Company"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   255
            Index           =   1
            Left            =   180
            TabIndex        =   17
            Top             =   540
            Width           =   1155
         End
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   7
         Left            =   180
         TabIndex        =   8
         Top             =   2940
         Width           =   1455
      End
      Begin TextBox Text1
         Height          =   285
         Index           =   8
         Left            =   1680
         TabIndex        =   9
         Top             =   2940
         Width           =   1455
      End
      Begin CommandButton Command4
         Caption         =   "&Save Card"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False